home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / virus / stelth22.zip / VIRUSDAT.PAS < prev   
Pascal/Delphi Source File  |  1992-02-10  |  970b  |  55 lines
  1. {
  2. virusdat.pas
  3. Stealth Bomber Version 2.2
  4.  
  5. Kevin Dean
  6. Fairview Mall P.O. Box 55074
  7. 1800 Sheppard Avenue East
  8. Willowdale, Ontario
  9. CANADA    M2J 5B9
  10. CompuServe ID: 76336,3114
  11.  
  12. February 10, 1992
  13.  
  14.     This module defines the _FCRC array used by the anti-virus CRC check.
  15. The default search string used by the CRCSET.EXE program is _STEALTH but may
  16. be changed by either modifying this file or defining another instance of _FCRC
  17. in another file earlier in the program link.
  18.  
  19.     This code is public domain.
  20. }
  21.  
  22.  
  23. unit VirusDat;
  24.  
  25.  
  26. interface
  27.  
  28.  
  29. uses
  30.   VirCheck;
  31.  
  32.  
  33. const
  34.   StealthNFiles = 1;
  35.  
  36.  
  37. const
  38.   _FCRC : array [1 .. StealthNFiles] of FileCRC =
  39.     (
  40.       (
  41.       SearchStr : ('_', 'S', 'T', 'E', 'A', 'L', 'T', 'H')
  42.       )
  43.       { *** Add as many instances of the following 3 lines necessary to fill the array.
  44.       ,(
  45.       SearchStr : (' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ')
  46.       )
  47.       }
  48.     );
  49.  
  50.  
  51. implementation
  52.  
  53.  
  54. end.
  55.